home *** CD-ROM | disk | FTP | other *** search
/ Learn Microsoft Visual Basic 6.0 Now / Learn Microsoft Visual Basic 6.0 Now (Microsoft Press)(X03-58607)(1998).ISO / media / chap08 / b08d010.cc2 < prev    next >
Text File  |  1998-06-07  |  3KB  |  73 lines
  1. 0, Okay, in this demo I'd like to soup up 
  2. 2, the burn barrel drag-and-drop program by 
  3. 5, adding an animation effect. When the 
  4. 7, match icon goes into the burn barrel, and 
  5. 10, the flame appears, I'd like to create a 
  6. 12, smoke cloud that drifts gently off the 
  7. 13, screen. The secret to doing this will be 
  8. 17, to create a timer object that moves the 
  9. 19, cloud icon off the screen in short and 
  10. 21, smooth increments. First, I'll click the 
  11. 25, Picture Box control in the toolbox and 
  12. 28, I'll draw a small rectangle above the 
  13. 30, empty burn barrel on the form. Then, I'll 
  14. 38, set the following properties for the 
  15. 39, picture box. I'll change the Appearance 
  16. 42, property to Flat. I'll change the BackColor 
  17. 47, property to that nice warm gray, and I'll 
  18. 56, remove the border by changing the 
  19. 59, BorderStyle property to None. And I'll open 
  20. 64, up a nice picture by setting the Picture 
  21. 67, property to a cloud icon. And finally, 
  22. 78, I'll make this invisible by setting the 
  23. 81, Visible property to False. When my 
  24. 84, animation runs, I'll make that visible with 
  25. 87, program code. Now, I'll click the Timer 
  26. 91, control in the Visual Basic toolbox and 
  27. 93, add a timer object to my form for the 
  28. 95, animation. And I'll set the following properties for 
  29. 99, my timer. First, I'll enable it by setting 
  30. 103, its Enable property to True, and I'll 
  31. 107, set the interval, or tick rate, to 65 
  32. 110, milliseconds. Now, I'll close the 
  33. 114, Properties window and double-click the empty burn 
  34. 118, barrel to open its DragDrop event 
  35. 122, procedure. And I'll add two lines. The first, 
  36. 129, Picture1.Visible = True, will display 
  37. 138, my cloud. And the second, Timer1.Enabled 
  38. 146, = True, will start the animation going 
  39. 150, that is keyed off of the timer object. 
  40. 154, Now, I'll open the drop-down list box and 
  41. 158, select the timer object and add the 
  42. 163, program code that goes into the Timer event 
  43. 166, procedure. As long as the timer is 
  44. 172, enabled, this If...Then decision structure is 
  45. 176, executed every sixty-five milliseconds. 
  46. 179, The first line in the procedure checks 
  47. 181, whether the smoke cloud has reached the 
  48. 182, top of the form. If it hasn't, if its 
  49. 185, Top property is still positive, the 
  50. 188, procedure uses a Relative Move method to move 
  51. 191, the cloud 50 twips closer to the left 
  52. 193, edge of the form and 75 twips closer to 
  53. 196, the top edge of the form. As you'll see 
  54. 199, when you run the program, this movement 
  55. 201, gives the cloud animation a gentle, drift 
  56. 204, quality. When the cloud reaches the top 
  57. 207, of the form, the Else clause in the 
  58. 210, Timer1_Timer procedure makes the picture 
  59. 213, invisible and disables the timer, which 
  60. 217, ends the animation. Now I'll run the 
  61. 221, program. Well, we've run the burn barrel 
  62. 230, program before, so I'll demonstrate quickly 
  63. 232, how the icons are dropped in. The gas 
  64. 234, will really get this thing stoking and the 
  65. 237, CD makes some good burning material. 
  66. 239, When we put in the match, the cloud 
  67. 242, animation begins and floats gently off the 
  68. 245, screen. Pretty cool, huh? Well, if you like 
  69. 248, this effect, take a few moments to 
  70. 249, create your own animations with the 
  71. 251, Picture Box and Timer controls. I think your 
  72. 253, users will appreciate the results.
  73. 257, END